home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj0687.arc / PERFORM.F77 < prev    next >
Text File  |  1987-04-06  |  678b  |  24 lines
  1. C     PERFORM - A FORTRAN Benchmark
  2.       INTEGER I
  3.       DOUBLE PRECISION A, B, C, D
  4. C
  5.       WRITE(6,1000)
  6.       D = 0.0
  7.       DO 100 I = 1, 10000
  8. C
  9. C       Implicit conversion.  Use of intrinsic function FLOAT
  10. C       available in ANSI X3.9-1978 but not recommended.
  11.         A=I
  12. C
  13. C       Generic names used for intrinsic functions.  Function
  14. C       type is automatically set to that of the argument.
  15. C       Note that TAN(x) = SIN(X)/COS(X)
  16. C
  17.         B = ATAN(LOG(A))
  18.         C = A - EXP(SIN(B)/COS(B))
  19.         D = D + C * C
  20.   100 CONTINUE
  21.       WRITE(6,1010) D
  22.  1000 FORMAT(2X,'Double Precision Benchmark')
  23.  1010 FORMAT(2X,'ERROR = ',1E9.3)
  24.       END